home *** CD-ROM | disk | FTP | other *** search
- // Borland C++ Builder
- // Copyright (c) 1995, 1998 by Borland International
- // All rights reserved
-
- // (DO NOT EDIT: machine generated header) 'Messages.pas' rev: 3.00
-
- #ifndef MessagesHPP
- #define MessagesHPP
- #include <Windows.hpp>
- #include <SysInit.hpp>
- #include <System.hpp>
-
- //-- user supplied -----------------------------------------------------------
-
- namespace Messages
- {
- //-- type declarations -------------------------------------------------------
- struct TMessage;
- typedef TMessage *PMessage;
-
- #pragma pack(push, 1)
- struct TMessage
- {
- Cardinal Msg;
- union
- {
- struct
- {
- Word WParamLo;
- Word WParamHi;
- Word LParamLo;
- Word LParamHi;
- Word ResultLo;
- Word ResultHi;
-
- };
- struct
- {
- int WParam;
- int LParam;
- int Result;
-
- };
-
- };
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMNoParams
- {
- Cardinal Msg;
- Word Unused[4];
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMKey
- {
- Cardinal Msg;
- Word CharCode;
- Word Unused;
- int KeyData;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMouse
- {
- Cardinal Msg;
- int Keys;
- union
- {
- struct
- {
- Windows::TSmallPoint Pos;
- int Result;
-
- };
- struct
- {
- short XPos;
- short YPos;
-
- };
-
- };
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMWindowPosMsg
- {
- Cardinal Msg;
- int Unused;
- tagWINDOWPOS *WindowPos;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMScroll
- {
- Cardinal Msg;
- short ScrollCode;
- short Pos;
- HWND ScrollBar;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMActivate
- {
- Cardinal Msg;
- Word Active;
- Word Minimized;
- HWND ActiveWindow;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMActivateApp
- {
- Cardinal Msg;
- BOOL Active;
- int ThreadId;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMAskCBFormatName
- {
- Cardinal Msg;
- Word NameLen;
- Word Unused;
- char *FormatName;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMCancelMode;
-
- #pragma pack(push, 1)
- struct TWMChangeCBChain
- {
- Cardinal Msg;
- HWND Remove;
- HWND Next;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMKey TWMChar;
-
- #pragma pack(push, 1)
- struct TWMCharToItem
- {
- Cardinal Msg;
- Word Key;
- Word CaretPos;
- HWND ListBox;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMChildActivate;
-
- #pragma pack(push, 1)
- struct TWMChooseFont_GetLogFont
- {
- Cardinal Msg;
- int Unused;
- tagLOGFONTA *LogFont;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMClear;
-
- typedef TWMNoParams TWMClose;
-
- #pragma pack(push, 1)
- struct TWMCommand
- {
- Cardinal Msg;
- Word ItemID;
- Word NotifyCode;
- HWND Ctl;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMCompacting
- {
- Cardinal Msg;
- int CompactRatio;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMCompareItem
- {
- Cardinal Msg;
- HWND Ctl;
- tagCOMPAREITEMSTRUCT *CompareItemStruct;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMCopy;
-
- #pragma pack(push, 1)
- struct TWMCopyData
- {
- Cardinal Msg;
- HWND From;
- tagCOPYDATASTRUCT *CopyDataStruct;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMCreate
- {
- Cardinal Msg;
- int Unused;
- tagCREATESTRUCTA *CreateStruct;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMCtlColor
- {
- Cardinal Msg;
- HDC ChildDC;
- HWND ChildWnd;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMCtlColor TWMCtlColorBtn;
-
- typedef TWMCtlColor TWMCtlColorDlg;
-
- typedef TWMCtlColor TWMCtlColorEdit;
-
- typedef TWMCtlColor TWMCtlColorListbox;
-
- typedef TWMCtlColor TWMCtlColorMsgbox;
-
- typedef TWMCtlColor TWMCtlColorScrollbar;
-
- typedef TWMCtlColor TWMCtlColorStatic;
-
- typedef TWMNoParams TWMCut;
-
- #pragma pack(push, 1)
- struct TWMDDE_Ack
- {
- Cardinal Msg;
- HWND PostingApp;
- union
- {
- int PackedVal;
- struct
- {
- Word App;
- Word Topic;
- int Result;
-
- };
-
- };
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMDDE_Advise
- {
- Cardinal Msg;
- HWND PostingApp;
- int PackedVal;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMDDE_Data
- {
- Cardinal Msg;
- HWND PostingApp;
- int PackedVal;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMDDE_Execute
- {
- Cardinal Msg;
- HWND PostingApp;
- int Commands;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMDDE_Initiate
- {
- Cardinal Msg;
- HWND PostingApp;
- Word App;
- Word Topic;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMDDE_Poke
- {
- Cardinal Msg;
- HWND PostingApp;
- int PackedVal;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMDDE_Request
- {
- Cardinal Msg;
- HWND PostingApp;
- Word Format;
- Word Item;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMDDE_Terminate
- {
- Cardinal Msg;
- HWND PostingApp;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMDDE_Unadvise
- {
- Cardinal Msg;
- HWND PostingApp;
- Word Format;
- Word Item;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMKey TWMDeadChar;
-
- #pragma pack(push, 1)
- struct TWMDeleteItem
- {
- Cardinal Msg;
- HWND Ctl;
- tagDELETEITEMSTRUCT *DeleteItemStruct;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMDestroy;
-
- typedef TWMNoParams TWMDestroyClipboard;
-
- #pragma pack(push, 1)
- struct TWMDevModeChange
- {
- Cardinal Msg;
- int Unused;
- char *Device;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMDrawClipboard;
-
- #pragma pack(push, 1)
- struct TWMDrawItem
- {
- Cardinal Msg;
- HWND Ctl;
- tagDRAWITEMSTRUCT *DrawItemStruct;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMDropFiles
- {
- Cardinal Msg;
- int Drop;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMEnable
- {
- Cardinal Msg;
- BOOL Enabled;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMEndSession
- {
- Cardinal Msg;
- BOOL EndSession;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMEnterIdle
- {
- Cardinal Msg;
- int Source;
- HWND IdleWnd;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMEnterMenuLoop
- {
- Cardinal Msg;
- BOOL IsTrackPopupMenu;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMEnterMenuLoop TWMExitMenuLoop;
-
- #pragma pack(push, 1)
- struct TWMEraseBkgnd
- {
- Cardinal Msg;
- HDC DC;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMFontChange;
-
- typedef TWMNoParams TWMGetDlgCode;
-
- typedef TWMNoParams TWMGetFont;
-
- #pragma pack(push, 1)
- struct TWMGetIcon
- {
- Cardinal Msg;
- BOOL BigIcon;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMGetHotKey;
-
- #pragma pack(push, 1)
- struct TWMGetMinMaxInfo
- {
- Cardinal Msg;
- int Unused;
- tagMINMAXINFO *MinMaxInfo;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMGetText
- {
- Cardinal Msg;
- int TextMax;
- char *Text;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMGetTextLength;
-
- #pragma pack(push, 1)
- struct TWMHotKey
- {
- Cardinal Msg;
- int HotKey;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMScroll TWMHScroll;
-
- #pragma pack(push, 1)
- struct TWMHScrollClipboard
- {
- Cardinal Msg;
- HWND Viewer;
- Word ScrollCode;
- Word Pos;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMEraseBkgnd TWMIconEraseBkgnd;
-
- #pragma pack(push, 1)
- struct TWMInitDialog
- {
- Cardinal Msg;
- HWND Focus;
- int InitParam;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMInitMenu
- {
- Cardinal Msg;
- HMENU Menu;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMInitMenuPopup
- {
- Cardinal Msg;
- HMENU MenuPopup;
- short Pos;
- Word SystemMenu;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMKey TWMKeyDown;
-
- typedef TWMKey TWMKeyUp;
-
- #pragma pack(push, 1)
- struct TWMKillFocus
- {
- Cardinal Msg;
- HWND FocusedWnd;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMMouse TWMLButtonDblClk;
-
- typedef TWMMouse TWMLButtonDown;
-
- typedef TWMMouse TWMLButtonUp;
-
- typedef TWMMouse TWMMButtonDblClk;
-
- typedef TWMMouse TWMMButtonDown;
-
- typedef TWMMouse TWMMButtonUp;
-
- #pragma pack(push, 1)
- struct TWMMDIActivate
- {
- Cardinal Msg;
- union
- {
- struct
- {
- HWND DeactiveWnd;
- HWND ActiveWnd;
- int Result;
-
- };
- HWND ChildWnd;
-
- };
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMDICascade
- {
- Cardinal Msg;
- int Cascade;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMDICreate
- {
- Cardinal Msg;
- int Unused;
- tagMDICREATESTRUCTA *MDICreateStruct;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMDIDestroy
- {
- Cardinal Msg;
- HWND Child;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMMDIGetActive;
-
- typedef TWMNoParams TWMMDIIconArrange;
-
- #pragma pack(push, 1)
- struct TWMMDIMaximize
- {
- Cardinal Msg;
- HWND Maximize;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMDINext
- {
- Cardinal Msg;
- HWND Child;
- int Next;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMMDIRefreshMenu;
-
- #pragma pack(push, 1)
- struct TWMMDIRestore
- {
- Cardinal Msg;
- HWND IDChild;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMDISetMenu
- {
- Cardinal Msg;
- HMENU MenuFrame;
- HMENU MenuWindow;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMDITile
- {
- Cardinal Msg;
- int Tile;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMeasureItem
- {
- Cardinal Msg;
- HWND IDCtl;
- tagMEASUREITEMSTRUCT *MeasureItemStruct;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMenuChar
- {
- Cardinal Msg;
- char User;
- Byte Unused;
- Word MenuFlag;
- HMENU Menu;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMenuSelect
- {
- Cardinal Msg;
- Word IDItem;
- Word MenuFlag;
- HMENU Menu;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMMouseActivate
- {
- Cardinal Msg;
- HWND TopLevel;
- Word HitTestCode;
- Word MouseMsg;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMMouse TWMMouseMove;
-
- #pragma pack(push, 1)
- struct TWMMove
- {
- Cardinal Msg;
- int Unused;
- union
- {
- struct
- {
- Windows::TSmallPoint Pos;
- int Result;
-
- };
- struct
- {
- short XPos;
- short YPos;
-
- };
-
- };
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMNCActivate
- {
- Cardinal Msg;
- BOOL Active;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMNCCalcSize
- {
- Cardinal Msg;
- BOOL CalcValidRects;
- tagNCCALCSIZE_PARAMS *CalcSize_Params;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMNCCreate
- {
- Cardinal Msg;
- int Unused;
- tagCREATESTRUCTA *CreateStruct;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMNCDestroy;
-
- #pragma pack(push, 1)
- struct TWMNCHitTest
- {
- Cardinal Msg;
- int Unused;
- union
- {
- struct
- {
- Windows::TSmallPoint Pos;
- int Result;
-
- };
- struct
- {
- short XPos;
- short YPos;
-
- };
-
- };
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMNCHitMessage
- {
- Cardinal Msg;
- int HitTest;
- short XCursor;
- short YCursor;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNCHitMessage TWMNCLButtonDblClk;
-
- typedef TWMNCHitMessage TWMNCLButtonDown;
-
- typedef TWMNCHitMessage TWMNCLButtonUp;
-
- typedef TWMNCHitMessage TWMNCMButtonDblClk;
-
- typedef TWMNCHitMessage TWMNCMButtonDown;
-
- typedef TWMNCHitMessage TWMNCMButtonUp;
-
- typedef TWMNCHitMessage TWMNCMouseMove;
-
- typedef TWMNoParams TWMNCPaint;
-
- typedef TWMNCHitMessage TWMNCRButtonDblClk;
-
- typedef TWMNCHitMessage TWMNCRButtonDown;
-
- typedef TWMNCHitMessage TWMNCRButtonUp;
-
- #pragma pack(push, 1)
- struct TWMNextDlgCtl
- {
- Cardinal Msg;
- int CtlFocus;
- Word Handle;
- Word Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMNotify
- {
- Cardinal Msg;
- int IDCtrl;
- tagNMHDR *NMHdr;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMNotifyFormat
- {
- Cardinal Msg;
- HWND From;
- int Command;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMPaint
- {
- Cardinal Msg;
- HDC DC;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMPaintClipboard
- {
- Cardinal Msg;
- HWND Viewer;
- int PaintStruct;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMPaintIcon;
-
- #pragma pack(push, 1)
- struct TWMPaletteChanged
- {
- Cardinal Msg;
- HWND PalChg;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMPaletteIsChanging
- {
- Cardinal Msg;
- HWND Realize;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMParentNotify
- {
- Cardinal Msg;
- Word Event;
- union
- {
- struct
- {
- Word Value1;
- int Value2;
- int Result;
-
- };
- struct
- {
- Word Value;
- short XPos;
- short YPos;
-
- };
- struct
- {
- Word ChildID;
- HWND ChildWnd;
-
- };
-
- };
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMPaste;
-
- #pragma pack(push, 1)
- struct TWMPower
- {
- Cardinal Msg;
- int PowerEvt;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMQueryDragIcon;
-
- #pragma pack(push, 1)
- struct TWMQueryEndSession
- {
- Cardinal Msg;
- int Source;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMQueryNewPalette;
-
- typedef TWMNoParams TWMQueryOpen;
-
- typedef TWMNoParams TWMQueueSync;
-
- #pragma pack(push, 1)
- struct TWMQuit
- {
- Cardinal Msg;
- int ExitCode;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMMouse TWMRButtonDblClk;
-
- typedef TWMMouse TWMRButtonDown;
-
- typedef TWMMouse TWMRButtonUp;
-
- typedef TWMNoParams TWMRenderAllFormats;
-
- #pragma pack(push, 1)
- struct TWMRenderFormat
- {
- Cardinal Msg;
- int Format;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSetCursor
- {
- Cardinal Msg;
- HWND CursorWnd;
- Word HitTest;
- Word MouseMsg;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSetFocus
- {
- Cardinal Msg;
- HWND FocusedWnd;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSetFont
- {
- Cardinal Msg;
- HFONT Font;
- Word Redraw;
- Word Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSetHotKey
- {
- Cardinal Msg;
- int Key;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSetIcon
- {
- Cardinal Msg;
- BOOL BigIcon;
- HICON Icon;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSetRedraw
- {
- Cardinal Msg;
- int Redraw;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSetText
- {
- Cardinal Msg;
- int Unused;
- char *Text;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMShowWindow
- {
- Cardinal Msg;
- BOOL Show;
- int Status;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSize
- {
- Cardinal Msg;
- int SizeType;
- Word Width;
- Word Height;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSizeClipboard
- {
- Cardinal Msg;
- HWND Viewer;
- int RC;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSpoolerStatus
- {
- Cardinal Msg;
- int JobStatus;
- Word JobsLeft;
- Word Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMStyleChange
- {
- Cardinal Msg;
- int StyleType;
- tagSTYLESTRUCT *StyleStruct;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMStyleChange TWMStyleChanged;
-
- typedef TWMStyleChange TWMStyleChanging;
-
- typedef TWMKey TWMSysChar;
-
- typedef TWMNoParams TWMSysColorChange;
-
- #pragma pack(push, 1)
- struct TWMSysCommand
- {
- Cardinal Msg;
- int CmdType;
- union
- {
- struct
- {
- short XPos;
- short YPos;
- int Result;
-
- };
- Word Key;
- HWND ActivateWnd;
-
- };
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMSysDeadChar
- {
- Cardinal Msg;
- Word CharCode;
- Word Unused;
- int KeyData;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMKey TWMSysKeyDown;
-
- typedef TWMKey TWMSysKeyUp;
-
- #pragma pack(push, 1)
- struct TWMSystemError
- {
- Cardinal Msg;
- Word ErrSpec;
- int Unused;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMTimeChange;
-
- #pragma pack(push, 1)
- struct TWMTimer
- {
- Cardinal Msg;
- int TimerID;
- void *TimerProc;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMNoParams TWMUndo;
-
- typedef TWMCharToItem TWMVKeyToItem;
-
- typedef TWMScroll TWMVScroll;
-
- #pragma pack(push, 1)
- struct TWMVScrollClipboard
- {
- Cardinal Msg;
- HWND Viewer;
- Word ScollCode;
- Word ThumbPos;
- int Result;
- } ;
- #pragma pack(pop)
-
- typedef TWMWindowPosMsg TWMWindowPosChanged;
-
- typedef TWMWindowPosMsg TWMWindowPosChanging;
-
- #pragma pack(push, 1)
- struct TWMWinIniChange
- {
- Cardinal Msg;
- int Unused;
- char *Section;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMHelp
- {
- Cardinal Msg;
- int Unused;
- tagHELPINFO *HelpInfo;
- int Result;
- } ;
- #pragma pack(pop)
-
- #pragma pack(push, 1)
- struct TWMDisplayChange
- {
- Cardinal Msg;
- int BitsPerPixel;
- Word Width;
- Word Height;
- } ;
- #pragma pack(pop)
-
- //-- var, const, procedure ---------------------------------------------------
-
- } /* namespace Messages */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Messages;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // Messages
-